Option Explicit
'ThisWorkbookҲ
Private Sub Workbook_WindowResize(ByVal Wn As Window)
    MsgBox Me.Name & "" & Wn.Index & "ӵjpQܧFC"
End Sub
